home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / bb2000 / files / StartUp.dxr / 00006.ls < prev    next >
Encoding:
Text File  |  1998-02-20  |  739 b   |  39 lines
  1. global gCustompath, gMovieName, gFrameName, gICVquadspeed
  2.  
  3. on startMovie
  4.   puppetSound(0)
  5.   if the platform = "Windows,32" then
  6.     if voidp(gICVquadspeed) then
  7.       CPUtest()
  8.     end if
  9.   else
  10.     set gICVquadspeed to 0
  11.   end if
  12. end
  13.  
  14. on CPUtest
  15.   cursor(4)
  16.   startTimer()
  17.   repeat with i = 1 to 20000
  18.     set dummyVar to sin(128)
  19.   end repeat
  20.   set myCPUtime to the timer / 60.0
  21.   cursor(-1)
  22.   if myCPUtime > 1.30000000000000004 then
  23.     set gICVquadspeed to 0
  24.   else
  25.     set gICVquadspeed to 1
  26.   end if
  27. end
  28.  
  29. on customGoMovie whichMovie, whichFrame
  30.   if voidp(whichFrame) then
  31.     set gMovieName to whichMovie
  32.     go("exitblank")
  33.   else
  34.     set gMovieName to whichMovie
  35.     set gFrameName to whichFrame
  36.     go("exitblank2")
  37.   end if
  38. end
  39.